1 REM MB C5.0.5     3/5/87
2 POKE781,VT:POKE782,HT:POKE783,PEEK(783)AND254:SYS65520:VT=0:HT=0:IFQTHENRETURN
3 :Q=1:SYS58692:POKE53280,0:POKE53281,0:POKE646,15:OPEN15,8,15:GOSUB23:GOSUB20:GOTO7:
4 TX=TI
5 IFTI<TX+180THEN5
6 RETURN
7 GOSUB30:PRINTCHR$(14);:K=1:N=8:VT=3:HT=10:GOSUB2:PRINT"[158][193]-[208][204][213][211] [205][193][211][212][197][210] [205][197][206][213]":VT=4:HT=9:GOSUB2:PRINT"[164][164][164]":VT=5:HT=9:GOSUB2:PRINT" 1 [146][159] [197]NTER/[197]DIT TESTS":VT=6:HT=9:GOSUB2:PRINT"[164][164][164]":VT=7:HT=9:GOSUB2:PRINT" 2 [146][159] [193]-[208]LUS ON SCREEN":VT=8:HT=9:GOSUB2:PRINT"[164][164][164]":VT=9:HT=9:GOSUB2:PRINT" 3 [146][159] [210]EAD TEST RECORDS
8 VT[178]10:HT[178]9:[141]2:[153]"TOTOTO":VT[178]11:HT[178]9:[141]2:[153]" 4 WAITOPEN (null)OCK/DELETE FILES":VT[178]12:HT[178]9:[141]2:[153]"TOTOTO":VT[178]13:HT[178]9:[141]2:[153]" 5 WAITOPEN (null)ET DEFAULT CODES":VT[178]14:HT[178]9:[141]2:[153]"TOTOTO":VT[178]15:HT[178]9:[141]2:[153]" 6 WAITOPEN RIGHT$NSTRUCTIONS":VT[178]16:HT[178]9:[141]2:[153]"TOTOTO
9 VT=17:HT=9:GOSUB2:PRINT" 7 [146][159] [208]RINT [193]-[208]LUS TEST":VT=18:HT=9:GOSUB2:PRINT"[164][164][164]":VT=19:HT=9:GOSUB2:PRINT" 8 [146][129] [197]ND THIS SESSION":VT=21:HT=12:GOSUB2:PRINT"[156][197][206][212][197][210] [211][197][204][197][195][212][201][207][206]
10 [161]Z$:[139]Z$[178]""[167]10
11 LM[178][197](Z$):[139]LM[179]1[176]LM[177]8[167]10
12 [153][199](147):[145]LM[137]18,13,14,15,16,31,17,19
13 FI$[178]"A+ OBJ.P*":[137]22
14 FI$[178]"READ P*":[137]22
15 FI$[178]"DEL P*":[137]22
16 FI$[178]"DEFAULT*":[137]22
17 FI$[178]"PRINT P*":[137]22
18 FI$[178]"GEN P*":[137]22
19 [151]53280,14:[151]53281,6:[153][199](142)"LOADCONTPROGRAM TERMINATED":[128]:
20 [132]15,DE,DE$,JU,JU:[139]DE[179]2[167][142]
21 [153]"LIST ";DE$:[152]15,"I0":[141]4:[160]15:[153]"LOADPROGRAM TERMINATED":[151]2,0:[151]787,0:[128]:
22 [153]"LOAD"[163]11)"LIST(null)(null)ATNSTR$RIGHT$(null)CHR$ (null)(null)(null)CHR$(null)ATN(null)...":[153]"STOPLOAD";[199](34);FI$;[199](34);",8ONONON":[160]15:[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
23 [151]53280,0:[151]53281,0:[153]"LOADRETURN";:[153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)(null)"[166]3)"TOTO";:[153]"TOTOTOTOTOTOTOTOTO}}nnmnnmnnFNnnFNnnFNnnm";
24 [153]"}}STEP  WAITLISTnFNTOTOTO   WAITLISTnFN WAITLISTFN WAITLISTFN WAITLISTFNSTEP   WAITLISTn}} WAIT";:[153]"LISTnTAB( WAITLISTFNnnFN WAITLISTn WAITLISTn WAITLISTFN WAITLISTFN WAITLISTFN WAITLISTnTAB(TAB(nm}}  ";:[153]"  WAITLISTFN   WAITLIST(null)   WAITSTEP WAITLIST(null)ANDAND WAITLIST(null) WAITLISTSGN(null)   (null)WAITLIST(null)FN(null)(null) WAITLISTFN ";
25 [153]"WAITLISTFN WAITLISTFN WAITLISTnnFN WAITLISTn WAITLISTnn WAITLISTn}} WAITLISTn WAITLISTn";:[153]" WAITLIST(null)    WAITLIST(null)(null)  WAITSTEP(null)   WAITSTEPLIST(null)(null)"[166]25);:[153][166]13)"(null)(null)"[166]38)"(null)(null)"[166]17);:[153][166]21)"(null)(null)"[166]23)"CONTBY"[166]13)"LIST(null)(null)";:[153][166]31)"(null)(null)"[166]38)"(null)";
26 [153]"(null)"[166]15)"CONTROBERTH.CROSWELLLIST(null)(null)"[166]38)"(null)(null)"[166]38)"(null)";:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[141]4:[141]30:[153][199](14)"SYS                                       ";:[153][166]17)"(null)ATN(null)(null)RIGHT$(null)CHR$ !":[153]"LIST(null)HIS SOFTWARE IS PROTECTED BY (null). (null).";
27 [153]"COPYRIGHT LAW   ((null)RIGHT$(null)(null)VAL 17 (null)(null)RIGHT$(null)VALSTR$";:[153]"(null)(null)ATN(null)VAL(null) LEN(null)STR$VAL). (null)E RESERVE ALL COM-";:[153]"MERCIAL  RIGHTS TO THIS PROGRAM.";:[153]"(null)ERMISSION IS GRANTED FOR NON-";:[153]"NON-COMMERCIAL  DISTRIBUTION ONLY.";
28 [153]"THERE ARE NO WARRANTIES EXPRESSED ";:[153]"OR IMPLIED AS TO THE FITNESS OF";:[153]"THIS  SOFTWARE FOR ANY PARTICULAR";:[153]"PURPOSE.";:[153]" CONT(null)5.0.5       (null)OBERT LEFT$. LENROSWELL";
29 [153]"                (null)T. 2 PEEKOX 20";:[153]"  (C) 1987      (null)RAPPE, (null)D.":[141]4:[142]:
30 [153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";:[129]I[178]1[164]21:[153]"(null)                                      (null)";:[130]:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[142]:
31 [153]"LOAD"[163]10)"LISTATN-(null)(null)(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)":[153]""[163]8)"TOTOTO":[153][163]8)" (null) WAITOPEN (null)UTPUT TO PRINTER":[153][163]8)"SYSTOTOTO":[153][163]8)" (null) WAITOPEN (null)UTPUT TO SCREEN":[153][163]8)"TOTOTO":[153][163]8)" (null) WAITOPEN (null)UIT - RETURN TO MENU":[153][163]12)"LIST< VALNTER LENHOICE >
32 GETO$:IFO$=""THEN32
33 IFO$<>"S"ANDO$<>"P"THEN7
34 IFO$="P"THEN47
35 PRINTCHR$(14):PRINT"[147][158]    [208]RESS SPACE BAR TO PAUSE/RESUME":PRINTTAB(8)"[208]RESS [209] TO ABORT LISTING[155]":OPEN6,8,6,"0:A+ 40,S,R":INPUT#15,E,E$,JU,JU:IFE>1THENCLOSE6:PRINT"[147]"E$:GOSUB4:GOTO7
36 GET#6,A$:GETQ$:IFQ$="Q"ORQ$="[209]"THENA$="[
37 [139]A$[178]"["[167][160]6:[137]43
38 [153]A$;:[161]Z$:[139]Z$[178]" "[167]40
39 [137]36
40 [161]Z$:[139]Z$[179][177]""[167]40
41 [161]Z$:[139]Z$[179][177]" "[167]41
42 [137]36
43 [153]:[153][163]5)"CLR VALND OF LISTING: PRESS SPACE LIST
44 GETA$:IFA$<>""THEN44
45 GETA$:IFA$<>" "THEN45
46 GOTO7
47 PRINTTAB(8)"[145][145][145][159]PRINTER DEVICE NUMBER[155]  4[157][157][157]";:INPUTD$:D=VAL(D$):IFD<4ORD>7THENPRINT"[147] INVALID NUMBER":GOTO47
48 OPEN6,8,6,"0:A+ 80,S,R":INPUT#15,E,E$,JU,JU:IFE>1THENCLOSE6:PRINT"[147]"E$:GOSUB4:GOTO7
49 OPEN4,D,7
50 GET#6,A$:GETQ$:IFQ$="Q"ORQ$="[209]"THENA$="[
51 [139]A$[178]"["[167][160]6:[152]4:[160]4:[137]7
52 [152]4,A$;:[137]50